Celestin Apprentice 7/Apprentice-Release7.iso/Environments/MacMETH 3.2.4/More Examples/MathLib.MOD

Text File | 1996-06-20 | 876b | 41 lines

IMPLEMENTATION MODULE MathLib; (* H. Seiler, 15.3.89 *) (*$R-*)

  (* a sketch of an implementation of Mathlib for the MC68881 co-processor. *)
  (* NOTE: This module can only be compiled with the compiler "Compile20"   *)

  IMPORT SYSTEM;

  PROCEDURE Sqrt(x: REAL) : REAL;
  BEGIN RETURN SYSTEM.Sqrt(x)
  END Sqrt;

  PROCEDURE Exp(x: REAL) : REAL;
  BEGIN RETURN SYSTEM.Exp(x)
  END Exp;

  PROCEDURE Ln(x: REAL) : REAL;
  BEGIN RETURN SYSTEM.Ln(x)
  END Ln;

  PROCEDURE Sin(x: REAL) : REAL;
  BEGIN RETURN SYSTEM.Sin(x)
  END Sin;

  PROCEDURE Cos(x: REAL) : REAL;
  BEGIN RETURN SYSTEM.Cos(x)
  END Cos;

  PROCEDURE ArcTan(x: REAL) : REAL;
  BEGIN RETURN SYSTEM.ArcTan(x)
  END ArcTan;

  PROCEDURE Real(x: INTEGER) : REAL;
  BEGIN RETURN FLOAT(x)
  END Real;

  PROCEDURE Entier(x: REAL) : INTEGER;
  BEGIN RETURN SHORT(SYSTEM.Entier(x))
  END Entier;

END MathLib.